home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / CompuServe.DATAPAC.v2.02 < prev    next >
Text File  |  1992-03-20  |  3KB  |  181 lines
  1. * CompuServe Script, for QuickMail™
  2. * © 1988-90 CE Software, Inc.
  3. *
  4. * Derived from: Title: CompuServe.DATAPAC.v2.02
  5. * Version: 2.02
  6. * Modification Date: 5/2/90
  7. * 
  8. * Modification History:
  9. * • 2.01 - 4/11/89: Formating and Name Changes.  Tested OK.
  10. * • 2.02 - Datapac mods by R. Sutcliffe 1990 05 02
  11. *
  12. * NOTES:
  13. * This is a simple script for logging onto CompuServe.  It assumes that
  14. * you are calling directly into the CompuServe network via Datapac.
  15. *
  16. *
  17. * THIS SCRIPT ONLY WORKS IF YOU ARE CALLING THROUGH Datapac.
  18. *
  19. *
  20. * This is called to log us into CompuServe
  21. :IN
  22. OOPS 120,FAILURE
  23. TYPE ..^M
  24. PAUSE 1
  25. TYPE P 29400138^M
  26. WAIT Host Name:
  27. TYPE cis^M
  28. WAIT User ID:
  29. TYPE «LOGID»;OLDF/GO:EMAIL^M
  30. WAIT Password:
  31. TYPE «PASSWORD»^M
  32. ALERT 1,IN2,Enter choice !
  33. ALERT 2,IN2,or HELp!
  34. ALERT 3,IN4,<CR>!
  35. ALERT 4,IN5,(Y or N)
  36. WAIT EasyPlex!
  37. :IN2
  38. ALERT 1,,
  39. ALERT 2,,
  40. TYPE Set Mode Command^M
  41. WAIT !
  42. TYPE Set Editor NoLine^M
  43. WAIT !
  44. TYPE Set Page Off^M
  45. WAIT !
  46. SUCCESS
  47. :IN4
  48. TYPE ^M
  49. WAIT EasyPlex!
  50. GOTO IN2
  51. :IN5
  52. TYPE Y^M
  53. WAIT EasyPlex!
  54. GOTO IN2
  55. *
  56. * This logs us off CompuServe
  57. *
  58. :BYE
  59. TYPE Bye^M
  60. ALERT 4,SUCCESS,DISCONNECTED
  61. ALERT 1,SUCCESS,NO CARRIER
  62. ALERT 2,B2,(Y or N)!
  63. ALERT 3,BYE,Host Name:
  64. :B1
  65. PAUSE 10
  66. SUCCESS
  67. :B2
  68. TYPE Y^M
  69. GOTO B1
  70. *
  71. * These are called to send one binary file
  72. *
  73. :XSEND
  74. OOPS 60,FAILURE
  75. TYPE Upload/PROTO:XMODEM/TYPE:Binary^M
  76. WAIT completed.
  77. XMODEM Upload,FAILURE
  78. GOTO S1
  79. :XAGAIN
  80. OOPS 60,FAILURE
  81. TYPE SEND^M
  82. GOTO S1
  83. *
  84. * This is called to send one piece of mail
  85. *
  86. :SEND
  87. OOPS 60,FAILURE
  88. TYPE Compose^M
  89. WAIT Enter message.
  90. TYPE Attn: «NAME»^M
  91. DUMP ^J
  92. TYPE /EX^M
  93. :S1
  94. WAIT (Name or User ID):
  95. TYPE «ADDRESS»^M
  96. ALERT 2,S5,%
  97. ALERT 3,S6,SEND!
  98. WAIT Subject:
  99. ALERT 2,,
  100. ALERT 3,,
  101. TYPE «TOPIC»^M
  102. ALERT 1,S3,Your name:
  103. :S2
  104. WAIT (Y or N)!
  105. TYPE Y^M
  106. ALERT 1,S4,Press <CR>!
  107. WAIT EasyPlex!
  108. SUCCESS
  109. :S3
  110. TYPE «FROM»^M
  111. GOTO S2
  112. :S4
  113. TYPE ^M
  114. WAIT EasyPlex!
  115. SUCCESS
  116. :S5
  117. ALERT 2,,
  118. ALERT 3,,
  119. ERRORINADDRESS
  120. WAIT to omit:
  121. TYPE ^M
  122. WAIT SEND!
  123. :S6
  124. ALERT 2,,
  125. ALERT 3,,
  126. TYPE ^M
  127. WAIT EasyPlex!
  128. SUCCESS
  129. *
  130. * This is called to resend the last message to someone else.  If there is
  131. * no label called "Again" in a script, it just calls Send for every file
  132. *
  133. :AGAIN
  134. OOPS 60,FAILURE
  135. TYPE EDIT^M
  136. WAIT [ Ready ]
  137. TYPE /T^M
  138. WAIT [ Top of file ]
  139. TYPE /N^M
  140. WAIT Attn:
  141. TYPE /R/Attn: «NAME»^M
  142. WAIT Attn:
  143. TYPE /EX^M
  144. WAIT SEND!
  145. TYPE SEND^M
  146. GOTO S1
  147. *
  148. * This is called to receive mail.  It is called continually with increasing
  149. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  150. * listing, if you wish
  151. *
  152. :RECEIVE
  153. OOPS 60,FAILURE
  154. TYPE Read all^M
  155. :R1
  156. ALERT 1,R10,EasyPlex!
  157. ALERT 2,R2,% Message is Binary
  158. BUFFER Action!
  159. RECEIVE Subj:,Attn:,From:,[,]
  160. TYPE Delete^M
  161. WAIT Delete
  162. GOTO R1
  163. :R2
  164. WAIT Action!
  165. TYPE Dow/Proto:XModem^M
  166. WAIT XMODEM transfer
  167. XMODEM Download,R3
  168. MAILFILE Subj:,Attn:,From:,[,]
  169. WAIT Action!
  170. TYPE Delete^M
  171. WAIT Delete
  172. GOTO R1
  173. :R3
  174. TYPE NOCOMMAND^M
  175. WAIT Action!
  176. TYPE Save^M
  177. WAIT Save
  178. GOTO R1
  179. :R10
  180. FAILURE
  181.